-- card: 14376 from stack: in.3r
-- bmap block id: 12274
-- flags: 4000
-- background id: 14090
-- name: Dogear


-- part 1 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=77 top=57 right=199 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 67
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=175 top=221 right=236 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PageNumber


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=276 top=203 right=239 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: right dogear
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  -- this script handles a diagonally divided button, intended to be
  --  a right dogear
  put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  put card field pageNumber into tempNumber
  if (x < y) then              -- click is in upper left
    visual scroll left very fast to gray
    visual scroll left very fast
    go this card
    put tempnumber+1 into card field PageNumber
  else
    visual scroll right very fast to gray
    visual scroll right very fast
    go this card
    put tempnumber-1 into card field PageNumber
  end if
end mouseUp



-- part contents for card part 2
----- text -----
8

-- part contents for card part 1
----- text -----
• From David Dunham's "fido" which has a REAL dog-ear button. The Dog Ear acts like opposed triangle-shaped buttons.  Copy and Paste into your stacks (Delphi:  DDUNHAM; CIS 76074,762; AppleLink D0457).   


-- part contents for background part 5
----- text -----
1

-- part contents for background part 12
----- text -----
Dog Ear

-- part contents for background part 13
----- text -----
Buttons